home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / mobile / fma-2.0-stable-setup.exe / {app} / sframework / plugins / OnCallPauseWA.vbs < prev    next >
Encoding:
Text File  |  2004-09-09  |  1.2 KB  |  45 lines
  1. 'FMA Script Framework Plugin
  2. 'OnCallPauseWA
  3. 'This will pause Winamp when you've got an incoming call on yout phone
  4.  
  5. 'TODO:
  6. '-nothing atm
  7.  
  8. Class OnCallPauseWA
  9.     
  10.     Private m_Self
  11.     Private m_WinampState
  12.     
  13.     'Some info about the plugin
  14.     Public Property Get SHOWABLE 'Do I have a menu?
  15.         SHOWABLE    = False
  16.     End Property
  17.     Public Property Get TITLE 'What's my name?
  18.         TITLE       = "On Call Pause Winamp"
  19.     End Property
  20.     Public Property Get DESCRIPTION 'What's my purpose?
  21.         DESCRIPTION = "This will puse Winamp when incoming call"
  22.     End Property
  23.     Public Property Get AUTHOR 'Who created me?
  24.         AUTHOR      = "vo.x"
  25.     End Property
  26.     Public Property Get URL 'Were can I be found? Where can you get more information?
  27.         URL = "http://fma.xinium.com/"
  28.     End Property
  29.     
  30.     'Who am I?
  31.     Public Property Let Self (s)
  32.         m_Self = s
  33.         EventManager.RegisterEvent "MusicMute", s & ".MuteWinamp", Me
  34.     End Property
  35.     
  36.     Public Property Get Self
  37.         Self = m_Self
  38.     End Property
  39.     
  40.     Sub MuteWinamp(Start)
  41.         If Start = 1 Then m_WinampState = LCase(ActiveXManager("WinampCOMLib.WinampCOMObj").GetSongState)
  42.             
  43.         If m_WinampState = "playing" Then ActiveXManager("WinampCOMLib.WinampCOMObj").Pause
  44.     End Sub
  45. End Class